home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)za.d64 / wait'n'go.proc < prev   
Text File  |  2007-03-01  |  469b  |  18 lines
  1. 9000 // ** ╫AIT ON KEY PRESS FOR 'X' SECONDS AND GO ON IF NOT PRESSED **
  2. 9010 //
  3. 9020 PROC KEY'WAIT'N'GO(X,REF RESP$) CLOSED
  4. 9030 DIM NUL$ OF 1
  5. 9040 NUL$:=CHR$(0)
  6. 9050 END'TIME:=JIFFIES+60*X
  7. 9060 REPEAT 
  8. 9070 RESP$:=KEY$
  9. 9080 UNTIL RESP$<>NUL$ OR JIFFIES>END'TIME
  10. 9090 ENDPROC KEY'WAIT'N'GO
  11. 9100 //
  12. 9110 // ** RETURN SYSTEM TIME IN JIFFIES **
  13. 9120 FUNC JIFFIES CLOSED
  14. 9130 SYSTIM:=PEEK(162)+256*(PEEK(161)+256*PEEK(160))
  15. 9140 RETURN SYSTIM
  16. 9150 ENDFUNC JIFFIES
  17. 9160 //
  18.